# Table SI-3
# =======================================================================================

# Recommendation
# =====================
mRec2 <- felm(pos_rec ~ (fem_r*gender_type)-gender_type | as.factor(manuscript_id), data = tomodel_rec, weights = tomodel_rec$weight_n)

# Review Duration
# =====================
mDur2 <- felm(duration ~ (fem_r*gender_type)-gender_type | as.factor(manuscript_id), data = tomodel_rec, weights = tomodel_rec$weight_n)

# Sentiment
# =====================
mSent2 <- felm(sentimentscore ~ (fem_r*gender_type)-gender_type | as.factor(manuscript_id), data = tomodel_text, weights = tomodel_text$weight_n)

# Wordcount
# =====================
mWordcount2 <- felm(wordcount_adj ~ (fem_r*gender_type)-gender_type | as.factor(manuscript_id), data = tomodel_text, weights = tomodel_text$weight_n)


# ======================
# MAIN OUTPUT TABLE 
# ======================

# Table SI-3
texreg(list(mRec2, mWordcount2, mSent2, mDur2)
       , custom.model.names = c("Non-reject", "Review Length", "Sentiment", "Duration")
       , custom.coef.names = c("Female Reviewer"
                               , "Solo Female * Female Reviewer", "Male Team * Female Reviewer", "Female Team * Female Reviewer", "Mixed Gender * Female Reviewer"
       )
       , caption.above = TRUE
       , caption = "OLS regression results: Gender reviewing behavior conditional on disaggregated authorship type (solo vs. team submissions)"
       , file = here("02_output", "01_tables", "table_s3.tex")
)


